(apropos-print): control invalid characters.

diff --git a/lisp/apropos.el b/lisp/apropos.el
index 98a15923e861deb11ffd28ecedbf31e21f71aa1d..b391e5157b7054c333be1faf9966d51dca1d597b 100644 (file)
--- a/lisp/apropos.el
+++ b/lisp/apropos.el
@@ -558,7 +558,9 @@ alphabetically by symbol name; but this function also sets
                   (insert
                    (mapconcat
                     (lambda (key)
-                      (setq key (key-description key))
+                      (setq key (condition-case () 
+                                    (key-description key)
+                                  (error)))
                       (if apropos-keybinding-face
                           (put-text-property 0 (length key)
                                              'face apropos-keybinding-face